POINT Software Programming/PPROG1.ISO/pascal/swag/hardware.swg/0032_Machine Model Byte.pas

Pascal/Delphi Source File | 1994-08-24 | 477 b | 19 lines

VAR
  Model : BYTE ABSOLUTE $F000:$FFFE;

BEGIN
  CASE Model OF
    $9A : WriteLn( 'COMPAQ Plus' );
    $FF : WriteLn( 'IBM PC' );
    $FE : WriteLn( 'PC XT, Portable PC' );
    $FD : WriteLn( 'PCjr' );

    $FC : WriteLn( 'Personal Computer AT, PS/2 Models 50 and 60' );
    $FB : WriteLn( 'PC XT (after 1/10/86)' );
    $FA : WriteLn( 'PS/2 Model 30' );
    $F9 : WriteLn( 'Convertible PC' );
    $F8 : WriteLn( 'PS/2 Model 80' );
  End;
END.